home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993…ch: Other People's Memory / ADC Developer CD (1993-03) (''Other People's Memory'')_iso / Dev.CD Mar 93.iso / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / StdFile.p < prev    next >
Encoding:
Text File  |  1992-02-26  |  4.6 KB  |  128 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: StdFile.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-92
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT STDFILE;
  11.  
  12. INTERFACE
  13.  
  14. USES TYPES;
  15.  
  16. CONST
  17. { Error Codes }
  18. badPromptDesc = $1701;
  19. badOrigNameDesc = $1702;
  20. badReplyNameDesc = $1704;
  21. badReplyPathDesc = $1705;
  22. badCall = $1706;
  23. sfNotStarted = $17FF;
  24.  
  25. { filterProc Result Codes }
  26. noDisplay = $0000;  { file not to be displayed }
  27. noSelect = $0001;  { file displayed, but not selectable }
  28. displaySelect = $0002;  { file displayed and selectable }
  29.  
  30. { Other Constants }
  31. sfWildAuxType = $8000;
  32. sfMatchFileType = $8000;
  33. sfWildFileType = $4000;
  34. sfMatchAuxType = $4000;
  35. sfDisplayGrey = $2000;
  36. {$IFC UNDEFINED sfFileTypeEntriesLength }  { SFTypeList - default number of FileTypeEntries }
  37. sfFileTypeEntriesLength = $0005;
  38. {$SETC sfFileTypeEntriesLength := 0}
  39. {$ENDC}
  40.  
  41. TYPE
  42. SFReplyRecHndl = ^SFReplyRecPtr;
  43. SFReplyRecPtr = ^SFReplyRec;
  44. SFReplyRec = RECORD
  45.     good : Boolean;
  46.     fileType : Integer;
  47.     auxFileType : Integer;
  48.     filename : String[15];
  49.     fullPathname : String[128];
  50. END;
  51.  
  52. SFReplyRec2Hndl = ^SFReplyRec2Ptr;
  53. SFReplyRec2Ptr = ^SFReplyRec2;
  54. SFReplyRec2 = RECORD
  55.     good : Boolean;
  56.     fileType : Integer;
  57.     auxType : Longint;
  58.     nameRefDesc : RefDescriptor;
  59.     nameRef : Ref;
  60.     pathRefDesc : RefDescriptor;
  61.     pathRef : Ref;
  62. END;
  63.  
  64. fileEntryRecPtr = ^fileEntryRec;
  65. fileEntryRec = RECORD
  66.         fileType : Integer;
  67.         auxType : LongInt;
  68.         nameLength : Char;
  69.         prefix1 : Char;
  70.         prefix2 : Char;
  71.         name : Array[1..253] of Char;
  72. END;
  73.  
  74. namesHandleRecHndl = ^namesHandleRecPtr;
  75. namesHandleRecPtr = ^namesHandleRec;
  76. namesHandleRec = RECORD
  77.     bufferLength : Integer;
  78.     fileEntryArray : Array[0..0] of fileEntryRec;
  79. END;
  80.  
  81. MultiReplyPtr = ^MultiReplyRecord;
  82. MultiReplyRecord = RECORD
  83.     good : Integer;
  84.     namesHandle : namesHandleRecHndl;
  85. END;
  86.  
  87. SFTypeListHndl = ^SFTypeListPtr;
  88. SFTypeListPtr = ^SFTypeList;
  89. SFTypeList = PACKED RECORD
  90.     numEntries : Byte;
  91.     fileTypeEntries : PACKED ARRAY[1..sfFileTypeEntriesLength] OF Byte;
  92. END;
  93.  
  94. TypeSelector2 = RECORD
  95.     flags : Integer;
  96.     fileType : Integer;
  97.     auxType : Longint;
  98. END;
  99.  
  100. SFTypeList2Hndl = ^SFTypeList2Ptr;
  101. SFTypeList2Ptr = ^SFTypeList2;
  102. SFTypeList2 = RECORD
  103.     numEntries : Integer;
  104.     fileTypeEntries : ARRAY[1..sfFileTypeEntriesLength] OF TypeSelector2;
  105. END;
  106.  
  107. PROCEDURE SFAllCaps ( allCapsFlag:Boolean);
  108. PROCEDURE SFBootInit;
  109. PROCEDURE SFGetFile ( whereX:Integer; whereY:Integer; prompt:Str255; filterProcPtr:WordProcPtr; typeListPtr:SFTypeListPtr;VAR replyPtr:SFReplyRec)  ;
  110. PROCEDURE SFGetFile2 ( whereX:Integer; whereY:Integer; promptDesc:RefDescriptor; promptRef:Ref; filterProcPtr:WordProcPtr; typeListPtr:SFTypeList2Ptr;VAR replyPtr:SFReplyRec2);
  111. PROCEDURE SFMultiGet2 ( whereX:Integer; whereY:Integer; promptDesc:RefDescriptor; promptRef:Ref; filterProcPtr:WordProcPtr; typeListPtr:SFTypeList2Ptr;VAR replyPtr:MultiReplyPtr);
  112. PROCEDURE SFPGetFile ( whereX:Integer; whereY:Integer; prompt:Str255; filterProcPtr:WordProcPtr; typeListPtr:SFTypeListPtr; dialogTempPtr:DialogTemplate; dialogHookPtr:VoidProcPtr;VAR replyPtr:SFReplyRec);
  113. PROCEDURE SFPGetFile2 ( whereX:Integer; whereY:Integer; itemDrawPtr:ProcPtr; promptDesc:RefDescriptor; promptRef:Ref; filterProcPtr:WordProcPtr; typeListPtr:SFTypeList2Ptr; dialogTempPtr:DialogTemplate; dialogHookPtr:VoidProcPtr;VAR replyPtr:SFReplyRec2);
  114. PROCEDURE SFPMultiGet2 ( whereX:Integer; whereY:Integer; itemDrawPtr:ProcPtr; promptDesc:RefDescriptor; promptRef:Ref; filterProcPtr:WordProcPtr; typeListPtr:SFTypeList2Ptr; dialogTempPtr:DialogTemplate; dialogHookPtr:VoidProcPtr;VAR replyPtr:MultiReplyPtr);
  115. PROCEDURE SFPPutFile ( whereX:Integer; whereY:Integer; prompt:Str255; origName:Str255; maxLen:Integer; dialogTempPtr:DialogTemplate; dialogHookPtr:VoidProcPtr;VAR replyPtr:SFReplyRec);
  116. PROCEDURE SFPPutFile2 ( whereX:Integer; whereY:Integer; itemDrawPtr:ProcPtr; promptDesc:RefDescriptor; promptRef:Ref; origNameDesc:RefDescriptor; origNameRef:Ref; dialogTempPtr:DialogTemplate; dialogHookPtr:VoidProcPtr;VAR replyPtr:SFReplyRec2);
  117. PROCEDURE SFPutFile ( whereX:Integer; whereY:Integer; prompt:Str255; origName:Str255; maxLen:Integer;VAR replyPtr:SFReplyRec);
  118. PROCEDURE SFPutFile2 ( whereX:Integer; whereY:Integer; promptDesc:RefDescriptor; promptRef:Ref; origNameDesc:RefDescriptor; origNameRef:Ref;VAR replyPtr:SFReplyRec2);
  119. PROCEDURE SFReScan ( filterProcPtr:ProcPtr; typeListPtr:SFTypeList2Ptr);
  120. PROCEDURE SFReset;
  121. FUNCTION SFShowInvisible ( invisibleState:Boolean) : Boolean;
  122. PROCEDURE SFShutDown;
  123. PROCEDURE SFStartUp ( userID:Integer; dPageAddr:Integer);
  124. FUNCTION SFStatus  : Boolean ;
  125. FUNCTION SFVersion  : Integer ;
  126. IMPLEMENTATION
  127. END.
  128.